home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / Icon.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-11-24  |  492 b   |  38 lines
  1. G4C - Shows given icon
  2.  
  3. WinBig -1 -1 200 100 IconView
  4. WinType 01000001
  5. resinfo 8 640 256
  6.  
  7. BOX 0 0 0 0 out button
  8.  
  9. xOnLoad icon
  10.     guiopen icon.gc $icon
  11.  
  12. xOnReload icon
  13.     delay 20
  14.     extract icon file name
  15.     setwintitle icon.gc '$name'
  16.     ChangeIcon icon.gc 1 -1 -1 $icon
  17.  
  18. xOnOpen icon
  19.     extract icon file name
  20.     setwintitle icon.gc '$name'
  21.     ChangeIcon icon.gc 1 -1 -1 $icon
  22.  
  23. xOnClose
  24.     guiquit icon.gc
  25.  
  26. xOnRMB
  27.     guiquit icon.gc
  28.  
  29. xOnInactive
  30.     guiquit icon.gc
  31.  
  32. xIcon 10 10 ""
  33.     attr resize 0000
  34.     GadID 1
  35.  
  36.  
  37.  
  38.